home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / gepackte_disketten / 1993 / 09_93_1.dms / 09_93_1.adf / JukeBox / block.jb < prev    next >
Text File  |  1993-01-29  |  249b  |  12 lines
  1. /* block trace */
  2. /* (c) copyright 1992,93 by F.J. Reichert */
  3.  
  4. options results;
  5. say 'tracing block addresses, press [ESC] to end';
  6. do forever;
  7.     current block;
  8.     say 'current block address='||result;
  9.     current break;
  10.     if result ~= 0 then leave;
  11. end;
  12.